$Excel = New-Object -Com Excel.Application  
$Excel.visible = $True  
$Excel = $Excel.Workbooks.Add() 
$wSheet = $Excel.Worksheets.Item(1) 
$y= @() 
$intRow = 1 
$wSheet.Cells.item(1,1) = "User:"  
$wSheet.Cells.Item(1,2) = "Home Folder:"  
$WorkBook = $wSheet.UsedRange  
$WorkBook.Interior.ColorIndex = 45  
$WorkBook.Font.ColorIndex = 1  
$WorkBook.Font.Bold = $True  
$arrGroups =@() 
import-module ActiveDirectory 
$Users = get-aduser -filter * 
$intRow++ 
foreach ($user in $users){ 
$path = Get-ADUser $user -properties * | select HomeDirectory 
$path >>temp.txt 
$wSheet.Cells.Item($intRow,1) = $user.samaccountname  
$wSheet.Cells.Item($intRow,2) = $path.HomeDirectory 
$intRow++ 
}